home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 19 / CU Amiga Magazine's Super CD-ROM 19 (1998)(EMAP Images)(GB)[!][issue 1998-02].iso / CUCD / Readers / Gui4Cli / Docs / Tutorials / VisEd.gc < prev    next >
Text File  |  1997-12-02  |  3KB  |  116 lines
  1. G4C
  2.  
  3. WINBIG 37 10 585 206    "VisEd.gc"
  4. winout 'CON:300/110/340/140/NOTES/AUTO'
  5. WinType 11110001
  6. usetopaz
  7.  
  8. ;  Headings
  9. CTEXT 28 3    'Visual Editing Practice' topaz.font 11 2 0 001
  10. CTEXT 370 1   'Graded Suggestions' topaz.font 9 3 2 000
  11.  
  12. ; Two squares to organize practice
  13. SQUARE 287 30 285 71    1 nofill
  14. SQUARE 9 19 271 79      2 nofill
  15.  
  16. ; Graphics samples to play with
  17. BOX 183 56 45 21        IN BUTTON
  18. LINE 99 83 248 93       1
  19. SQUARE 32 57 42 26      1 fill
  20. CIRCLE 128 63 22 12     1 nofill
  21.  
  22. xonLoad 
  23. ; Set up our path for the second window
  24. extract VisEd.gc guipath tem_path
  25. assign TEM: $tem_path
  26. delvar tem_path
  27. GuiLoad TEM:SecondWindow.g
  28. GuiOpen VisEd.gc
  29.  
  30. xonClose
  31. GuiQuit SecondWindow.g
  32. GuiQuit VisEd.gc
  33.  
  34. ; More samples to play with
  35.  
  36. XBUTTON 24 36 63 14    'Button'
  37.  
  38. XCYCLER 63 103 92 15    'Cycler' cvar
  39. CSTR 'OFF' 0
  40. CSTR 'ON' 1
  41.  
  42. XCHECKBOX 250 105 26 12    'CheckBox' chvar 'ON' 'OFF' OFF
  43.  
  44. XHSLIDER 63 119 213 11    'Slider' hvar 0 100 50 ''
  45.  
  46. XTEXTIN 210 36 53 13    'TextIn' tvar Text 128
  47.  
  48. XLISTVIEW 43 147 205 57    ListView lv '' 0 NUM
  49.  
  50. ; Five suggested practice activities
  51.  
  52. XBUTTON 397 14 26 13    '1'
  53.  
  54. a = '                  Saving any changes\n'
  55. appvar a '                  ------------------\n'
  56. appvar a 'Any changes you make can be saved by pressing Ctrl/g.\n'
  57. appvar a 'Note that the effect will be to change permanently the\n'
  58. appvar a 'existing format of this tutorial. If you wish to\n'
  59. appvar a 'keep the original intact, make a copy now.'
  60. ezreq $a 'Okay' v
  61.  
  62. XBUTTON 424 14 26 13         '2'
  63. a = '               Practice in moving objects\n'
  64. appvar a '               --------------------------\n'
  65. appvar a 'Move the items from the white box into the black box.\n'
  66. appvar a 'Gui4Cli docs will tell you how to use Ctrl and the mouse\n'
  67. appvar a 'button (or "h") to move items.  Note the special needs of\n'
  68. appvar a 'graphics elements, especially circles.  Avoid the lower\n'
  69. appvar a 'right corner if you just want to move an object.'
  70. ezreq $a 'Okay' v
  71.  
  72. XBUTTON 450 14 26 13         '3'
  73. a = '               Practice in resizing objects\n'
  74. appvar a '               ----------------------------\n'
  75. appvar a 'Resize the items in one of the boxes so that, as far as possible,\n'
  76. appvar a 'they completely fill it. Remember, click on the lower right\n'
  77. appvar a 'corner to change the size or shape of an object. You can\n'
  78. appvar a 'change the gradient but not the thickness of the line.'
  79. ezreq $a 'Okay' v
  80.  
  81. XBUTTON 476 14 26 13         '4'
  82. a = '                Practice in cloning objects\n'
  83. appvar a '                ---------------------------\n'
  84. appvar a 'A new gui window will be opened for you in the lower right\n'
  85. appvar a 'section of the existing one. Clone a selection of objects\n'
  86. appvar a 'from the larger window into the smaller.'
  87. ezreq $a 'Okay' v
  88. ifexists WINDOW SecondWindow.g
  89.     ; nop
  90. else
  91.     GuiOpen SecondWindow.g
  92. endif
  93.  
  94. XBUTTON 502 14 26 13         '5'
  95. a =      '           Duplicating and deleting objects\n'
  96. appvar a '           --------------------------------\n'
  97. appvar a 'To duplicate an object in its own window, clone it into the\n'
  98. appvar a 'second window, and then clone that new object back into the\n'
  99. appvar a 'first window.\n'
  100. appvar a 'Check also how the delete key can be used with a selected object.'
  101. ezreq $a 'Okay' v
  102. ifexists WINDOW SecondWindow.g
  103.     ; nop
  104. else
  105.     GuiOpen SecondWindow.g
  106. endif
  107.  
  108. ;------  Window for cloning practice
  109.  
  110. NEWFILE SecondWindow.g
  111.  
  112. WINBIG 320 124 300 100  "SecondWindow.g"
  113. WinType 11110001
  114. usetopaz
  115.  
  116.